This is an result for the gene singatures as well as assigned cell type for each cluster based on Danaher et al.
for( i in 1:length(mean_score[1,])){
print(visualize_me(mean_score[,i],cell_list[i],analysis_results$tsne[c("TSNE.1","TSNE.2")],title=names(cell_list)[i] ))
}
sig_plot <- visualize_clusters(cluster_tsne$cell_type,cluster_tsne[c("TSNE.1","TSNE.2")],title="Danaher cell-type labels")
#sig_plot <-sig_plot +scale_fill_discrete(name="Cell Type",
# breaks=unique(cluster_assignment$cell_type),
# labels=sapply(unique(cluster_assignment$cell_type),function(x) names(cell_list[x])))
print(sig_plot)
counter <-1
apply(score_by_cluster, 1,function(x) {plot(x,ylab="mean expression level",xlab="cell type", main=c("Cluster",counter))
counter <<- counter + 1})
## [1] 2 3 4 5 6 7 8 9 10 11